home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rmtlog1a / frmevent.frm (.txt) < prev    next >
Visual Basic Form  |  1999-03-21  |  7KB  |  220 lines
  1. VERSION 5.00
  2. Begin VB.Form frmEventLogTestFrame 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Event Log Test Frame"
  5.    ClientHeight    =   3360
  6.    ClientLeft      =   3516
  7.    ClientTop       =   4368
  8.    ClientWidth     =   5424
  9.    Icon            =   "frmEventLogTestFrame.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3360
  15.    ScaleWidth      =   5424
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton cmdLog 
  18.       Caption         =   "&Log It!"
  19.       Height          =   465
  20.       Left            =   3930
  21.       TabIndex        =   14
  22.       Top             =   2790
  23.       Width           =   1365
  24.    End
  25.    Begin VB.ComboBox cboEventType 
  26.       Height          =   315
  27.       ItemData        =   "frmEventLogTestFrame.frx":0442
  28.       Left            =   1320
  29.       List            =   "frmEventLogTestFrame.frx":0459
  30.       Style           =   2  'Dropdown List
  31.       TabIndex        =   13
  32.       Top             =   2910
  33.       Width           =   2415
  34.    End
  35.    Begin VB.TextBox txtEventID 
  36.       CausesValidation=   0   'False
  37.       Height          =   315
  38.       Left            =   1320
  39.       TabIndex        =   11
  40.       Top             =   2490
  41.       Width           =   1005
  42.    End
  43.    Begin VB.TextBox txtMessage 
  44.       CausesValidation=   0   'False
  45.       Height          =   915
  46.       Left            =   1320
  47.       MultiLine       =   -1  'True
  48.       TabIndex        =   9
  49.       Top             =   1470
  50.       Width           =   3975
  51.    End
  52.    Begin VB.TextBox txtSource 
  53.       CausesValidation=   0   'False
  54.       Height          =   315
  55.       Left            =   1320
  56.       TabIndex        =   4
  57.       Top             =   690
  58.       Width           =   2235
  59.    End
  60.    Begin VB.TextBox txtHost 
  61.       CausesValidation=   0   'False
  62.       Height          =   315
  63.       Left            =   1320
  64.       TabIndex        =   2
  65.       Top             =   300
  66.       Width           =   2235
  67.    End
  68.    Begin VB.CommandButton cmdDisconnect 
  69.       Caption         =   "&Disable!"
  70.       Height          =   465
  71.       Left            =   3930
  72.       TabIndex        =   6
  73.       Top             =   600
  74.       Width           =   1365
  75.    End
  76.    Begin VB.CommandButton cmdConnect 
  77.       Caption         =   "&Enable!"
  78.       Default         =   -1  'True
  79.       Height          =   465
  80.       Left            =   3930
  81.       TabIndex        =   5
  82.       Top             =   90
  83.       Width           =   1365
  84.    End
  85.    Begin VB.Label lblType 
  86.       BackStyle       =   0  'Transparent
  87.       Caption         =   "Event Type:"
  88.       Height          =   195
  89.       Left            =   240
  90.       TabIndex        =   12
  91.       Top             =   2970
  92.       Width           =   885
  93.    End
  94.    Begin VB.Label lblEventID 
  95.       BackStyle       =   0  'Transparent
  96.       Caption         =   "Event ID:"
  97.       Height          =   195
  98.       Left            =   240
  99.       TabIndex        =   10
  100.       Top             =   2550
  101.       Width           =   885
  102.    End
  103.    Begin VB.Label lblMessage 
  104.       BackStyle       =   0  'Transparent
  105.       Caption         =   "Message:"
  106.       Height          =   195
  107.       Left            =   240
  108.       TabIndex        =   8
  109.       Top             =   1530
  110.       Width           =   885
  111.    End
  112.    Begin VB.Label lblSource 
  113.       BackStyle       =   0  'Transparent
  114.       Caption         =   "Source:"
  115.       Height          =   195
  116.       Left            =   240
  117.       TabIndex        =   3
  118.       Top             =   750
  119.       Width           =   885
  120.    End
  121.    Begin VB.Label lblHost 
  122.       BackStyle       =   0  'Transparent
  123.       Caption         =   "Host (UNC):"
  124.       Height          =   195
  125.       Left            =   240
  126.       TabIndex        =   1
  127.       Top             =   360
  128.       Width           =   885
  129.    End
  130.    Begin VB.Label lblAddHeader 
  131.       BackColor       =   &H8000000D&
  132.       Caption         =   " Add New Events"
  133.       BeginProperty Font 
  134.          Name            =   "MS Sans Serif"
  135.          Size            =   7.8
  136.          Charset         =   0
  137.          Weight          =   700
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       ForeColor       =   &H8000000E&
  143.       Height          =   210
  144.       Left            =   120
  145.       TabIndex        =   7
  146.       Top             =   1170
  147.       Width           =   5175
  148.    End
  149.    Begin VB.Label lblStatus 
  150.       AutoSize        =   -1  'True
  151.       BackStyle       =   0  'Transparent
  152.       Caption         =   "Not connected."
  153.       Height          =   195
  154.       Left            =   120
  155.       TabIndex        =   0
  156.       Top             =   60
  157.       Width           =   1110
  158.    End
  159. Attribute VB_Name = "frmEventLogTestFrame"
  160. Attribute VB_GlobalNameSpace = False
  161. Attribute VB_Creatable = False
  162. Attribute VB_PredeclaredId = True
  163. Attribute VB_Exposed = False
  164. Option Explicit
  165. Private mobjLog As RMTLogLib.EventLog
  166. Private Sub SetEnabledStatus()
  167.   If mobjLog.Enabled Then
  168.     If mobjLog.LogDestination <> "" Then
  169.       lblStatus.Caption = "Connected to " & txtSource.Text & " at " & txtHost.Text
  170.     Else
  171.       lblStatus.Caption = "Connected to " & txtSource.Text
  172.     End If
  173.   Else
  174.     lblStatus.Caption = "Not connected."
  175.   End If
  176.   cmdConnect.Default = (mobjLog.Enabled)
  177.   cmdDisconnect.Default = (mobjLog.Enabled)
  178. End Sub
  179. Private Sub cmdConnect_Click()
  180.   On Error GoTo ConnectError
  181.   If txtHost.Text <> "" Then
  182.     lblStatus.Caption = "Connecting to Event Log " & txtSource.Text & " at " & txtHost.Text & "..."
  183.   Else
  184.     lblStatus.Caption = "Connecting to Event Log " & txtSource.Text & "..."
  185.   End If
  186.   mobjLog.LogDestination = txtHost.Text
  187.   mobjLog.EventSource = txtSource.Text
  188.   mobjLog.Enabled = True
  189.   cmdDisconnect.Default = True
  190.   SetEnabledStatus
  191.   Exit Sub
  192. ConnectError:
  193.   MsgBox Err.Number & " [" & Err.Description & "]"
  194.   SetEnabledStatus
  195. End Sub
  196. Private Sub cmdDisconnect_Click()
  197.   mobjLog.Enabled = False
  198.   cmdConnect.Default = True
  199.   SetEnabledStatus
  200. End Sub
  201. Private Sub cmdLog_Click()
  202.   On Error GoTo LogError
  203.   If mobjLog.WriteLog(txtMessage.Text, cboEventType.ItemData(cboEventType.ListIndex), CLng(Val(txtEventID.Text))) Then
  204.     MsgBox "Logged your event OK!"
  205.   Else
  206.     MsgBox "Couldn't log your event!"
  207.   End If
  208.   Exit Sub
  209. LogError:
  210.   MsgBox Err.Number & " [" & Err.Description & "]"
  211. End Sub
  212. Private Sub Form_Load()
  213.   'Set mobjLog = New RMTLogLib.NTEventLog
  214.   'Set mobjLog = New RMTLogLib.EventLog
  215.   Set mobjLog = New RMTLogLib.XMLEventLog
  216. End Sub
  217. Private Sub Form_Unload(Cancel As Integer)
  218.   Set mobjLog = Nothing
  219. End Sub
  220.